home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 23 / AACD 23.iso / CDTools / S / ChangeFonts.awebrx < prev    next >
Text File  |  2000-11-08  |  846b  |  33 lines
  1. /*
  2.     Switches to a different set or size of fonts
  3.     $VER: ChangeFonts.awebrx 1.1 (8.11.2000)
  4.     (c) Neil Bothwick, Wirenet
  5.  
  6.     1.1  - Uses "parse source" to get the name of the CD
  7. */
  8.  
  9. options results
  10. portname = address()
  11. parse source . ' ' . ' ' . ' ' ScriptName ' ' .
  12. CDName = left(ScriptName, pos(':', ScriptName) - 1)
  13. parse upper arg FontSet
  14.  
  15. PrefsDir = 'AWeb3DEMO/Amigactive'
  16. FontsPage = 'html/BrowserFonts.html'
  17.  
  18. select
  19.     when FontSet = 'CANCEL' then do
  20.         address command 'copy ENVARC:'PrefsDir'/browser ENV:'PrefsDir'/browser'
  21.         'go home'
  22.         end
  23.     when FontSet = 'USE' then 'go home'
  24.     when FontSet = 'SAVE' then do
  25.         address command 'copy ENV:'PrefsDir'/browser ENVARC:'PrefsDir'/browser'
  26.         'go home'
  27.         end
  28.     otherwise address command 'copy 'CDName':System/Prefs/env-archive/AWeb3DEMO/Amigactive/browser.'FontSet' ENV:'PrefsDir'/browser'
  29.     end
  30.  
  31. exit
  32.  
  33.